99 POKE45,130:POKE46,031:CLR:POKE53265,PEEK(53265)AND239 100 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 101 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME"; 102 PRINT"NTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]sCREEN"; 103 PRINT"EDITORISAMODIFICATIONOFAN[159]}}[153]EXCELLENTPUBLICDOMAINPROGRAM.nOW"; 104 PRINT",[159]}}[153]HOWEVER,SEVERALTHINGSWORKABIT[159]}}[153]DIFFERENTLY.fIRST,SCRE"; 105 PRINT"ENSCROLLING[159]}}[153]ISDISABLEDWITHONLYONEEXCEPTION.[159]}}[153]iNSERTMODEW"; 106 PRINT"ILLSTILLFUNCTION.tHIS[159]}}[153]CANCAUSEANINADVERTANTSCREENSCROLL[159]}}[153]D"; 107 PRINT"OWN,DESTROYINGPARTOFTHESCREEN[159]}}[153]BEINGWORKEDON.wECONSIDERE"; 108 PRINT"DITA[159]}}[153]WORTHWHILETRADEOFFTOBEABLETOKEEP[159]}}[153]INSERTINGANDDELET"; 109 PRINT"ING--BUTBECARE-[159]}}[153]FUL.tHELOWERRIGHTCORNEROFTHE[159]}}[153]SCREEN"; 110 PRINT"ISALSONOTCORRECTLYHANDLED[159]}}[153]INDIRECTMODE.tHEREASONISBECAUS"; 111 PRINT"E[159]}}[153]THELOWERRIGHTCORNEROFANYSCREEN[159]}}[153]NORMALLYDISPLAYEDMUSTH"; 112 PRINT"AVETHEPOKE[159]}}[153]VALUEPUTINSCREENramANDTHECHAR-[159]}}[153]ACTERCOLORP"; 113 PRINT"OKEDINTOTHECORRESPOND-[159]}}[153]INGCOLORram.iFTHISISNOTDONE,AN[159]}[171]``"; 114 PRINT"````````````[178]````````[178]``````````````[179]}[155]sCREENeDITOR[159]}[154]pAGE1[159]}[155]rETUR"; 115 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"; 116 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 117 GOSUB50000 199 POKE53265,PEEK(53265)AND239:CLR 200 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 201 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 202 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]UNDES"; 203 PRINT"IRABLESCREENSCROLLWILLOCCUR[159]}}[153]DURINGPROGRAMEXECUTION.tHEsCR"; 204 PRINT"EEN[159]}}[153]eDITORMAYALSOBEACCESSEDDURINGAN[159]}}[153]ACTUALPROGRAMRUNTOS"; 205 PRINT"NITCHALOW-RES[159]}}[153]SCREENFORUSEELSEWHEREORFORMODI-[159]}}[153]FICATION.b"; 206 PRINT"eawareTHATIFYOUENTER[159]}}[153]THEEDITORINTHISMANNER,THELOWER[159]}}"; 207 PRINT"[153]RIGHTCORNEROFTHESCREENWILLBERE-[159]}}[153]PRODUCEDINTHEPRINTSTATEME"; 208 PRINT"NTS.tHE[159]}}[153]LASTCHARACTERMUSTBEDELETEDANDTHE[159]}}[153]PROPERpokeSUSED"; 209 PRINT".wHENTHEEDITORIS[159]}}[153]ACCESSED,AHELPSCREENISDISPLAYED.[159]}}[153]fUNCT"; 210 PRINT"IONKEY7(F7)TOGGLESBETWEEN[159]}}[153]THEHELPSCREENANDTHESCREENYOU"; 211 PRINT"ARE[159]}}[153]CREATING.aLLOTHERCOMMANDSMUSTBE[159]}}[153]EXECUTEDFROMTHEWORK"; 212 PRINT"SCREEN.tHEF2[159]}}[153]KEYWILLCOMPILEAbasicPROGRAMTHAT[159]}}[153]REPLACESA"; 213 PRINT"NYRESIDENTbasicPROGRAM[159]}}[153]ALREADYINMEMORY.tHEUTILITYISALSO[159]}[171]"; 214 PRINT"``````````````[178]````````[178]``````````````[179]}[155]sCREENeDITOR[159]}[154]pAGE2[159]}[155]rET"; 215 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"; 216 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 217 GOSUB50000 299 POKE53265,PEEK(53265)AND239:CLR 300 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 301 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 302 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]EXITE"; 303 PRINT"DWHENTHISOPTIONISSELECTED.[159]}}[153]tHEF1ANDF3KEYSWILLCHANGEBOR"; 304 PRINT"DER[159]}}[153]ANDBACKGROUNDCOLORSRESPECTIVELY.iN[159]}}[153]ADDITION,THENORMALsU"; 305 PRINT"PERaIDECOLOR[159]}}[153]CHANGEROUTINESWILLALSOWORK.tEXT[159]}}[153]COLORCANB"; 306 PRINT"ECHANGEDBYctrl/commodore[159]}}[153]KEYPRESSESFOLLOWEDBYACOLORKEYOR[159]}}"; 307 PRINT"[153]BYUSINGTHEREGULARsUPERaIDECOLOR[159]}}[153]CHANGEROUTINE.pRESSINGF8W"; 308 PRINT"ILLEXIT[159][221][221][153]TOTHE[194][193][211][201][195]MODEWITHOUTCREATINGTHE[159][221][221][153]NEW[194][193][211][201][195]PROGRAM"; 309 PRINT".tHESCREENYOUARE[159]}}[153]WORKINGONWILLBELOST.tHISVERSION[159]}}[153]OFTH"; 310 PRINT"ESCREENEDITORWILLWORKONLY[159]}}[153]WITHsUPERaIDE.tHEORIGINALPROG"; 311 PRINT"RAM[159]}}[153]APPEARSONtpugDISK#507.tHISEDITOR[159]}}[153]ISAveryUSEFULTOOLI"; 312 PRINT"NCREATINGCOM-[159]}}[153]PLICATEDSCREENSEASILY.aLLLO-RES[159]}}[153]SCREENSIN"; 313 PRINT"sUPERaIDEWERECREATED[159]}}[153]USINGTHISEDITOR.[159]}[171]"; 314 PRINT"``````````````[178]````````[178]``````````````[179]}[155]sCREENeDITOR[159]}[154]pAGE3[159]}[155]rET"; 315 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"; 316 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 317 GOSUB50000 9500 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$=" [197]XIT [212]HE [208]ROGRAM " 9501 POKE53265,PEEK(53265)AND239 9502 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 9503 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 9504 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}"; 9505 PRINT"}}[153]dOYOUWISHTO:"; 9506 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````"; 9507 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}"; 9508 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}"; 9509 PRINT"[173]````````````````````````[189]}}"; 9510 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}"; 9511 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}"; 9512 PRINT"}}}}"; 9513 PRINT"}}[150]hAPPYpROGRAMMING![159]"; 9514 PRINT"}}}}"; 9515 PRINT"}}}[171]``````````````[178]```````"; 9516 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][211]CREEN [197]DITOR[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#6[159][221][173][192][192][192][192][192][192][192][192]"; 9517 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 9518 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 9519 GETW$ 9520 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256 9521 FORX=1066TO1070:POKEX,PO:NEXTX 9522 FORX=1097TO1101:POKEX,PO:NEXTX 9523 IFW$=""THEN9519 9524 IFW$=CHR$(13)THENGOTO9531 9525 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN9527 9526 GOTO9519 9527 CO=CO+1:IFCO>2THENCO=1 9528 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]" 9529 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]" 9530 GOTO9519 9531 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW 9532 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 9533 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]" 9534 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 9535 LOAD"DOC.DRIVER",8 50000 GETW$ 50001 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256 50002 FORX=1066TO1070:POKEX,PO:NEXTX 50003 FORX=1097TO1101:POKEX,PO:NEXTX 50004 IFW$=""THEN50000 50005 RETURN